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; BASIC gfloat ** gfloat routine 


DECLARATIONS 
BASSPOWGG = BASIC gfloat ** gfloat 
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1-001 
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ABSTRACT: 


(** or 


MODIFIED BY: 
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AND MAY BE USED AND COPIED 
CH_ LICENSE H_TH 
SOF TWARE 
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THE SOFTWARE IS HEREBY 


ITY FOR THE USE OR RELIABILITY OF ITS 


IBIL 
EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: Basic Support Library 


This module contains entry points to supp 
*) in BASIC-PLUS-2 for DOUBLE ** 


ENVIRONMENT: User Mode, AST Reentrant 


. CREATION DATE: 5-Oct-81 
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~SBTTL DECLARATIONS 
INCLUDE FILES: 


EXTERNAL DECLARATIONS: 
-DSABL GBL 


EXTRN OTSS$POWGG 
EXTRN OTSS$POWGJ 
-EXTRN BASS$K_DIVBY_ZER 
EXTRN BASS$K~ILLARGLOG 
EXTRN BASSS$STOP 


MACROS: 
EQUATED SYMBOLS: 


OWN STORAGE: 


PSECT DECLARATIONS: 


-PSECT _BASSCODE PIC, USR, CON, R 
EXE, RD, NOWRT, L 


cro V04-00 Page g 
BASRTL.SRC JBASPOWGG.MAR; 1 (2) 


Prevent undeclared 
symbols from er 
automatically global. 


OTS$ gfloat ** gfloat exponentiation 
OTS$ gfloat ** int exponentation 
Divide by Zero 

Illegal argument in LOG 

Error reporting routine 


EL, LCL, SHR, - 
ONG 
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; BASIC gfloat ** gfloat routine 15-SEP-1984 :59:17 VAX/VMS Macro v04-00 Pa 
BASSPOWG - BASIC gfloat ** gfloat pant et 9 8; 4:07 (CBASRTL.SRCIBASPOWGG.MAR; 1 ” 3) 


oe -SBTTL BASSPOWGG = BASIC gfloat ** gfloat 
FUNCTIONAL DESCRIPTION: 


This routine takes BASE ** EXP, using the following table 
for unusual cases: 


BASE > Call OTSS$POWGG, normal case. 
BASE = 0, EXP > Return 0.0. 
BASE = 0, EXP = Return 1.0. 
= 0, EXP < Error: divide by zero 
BASE < 0, EXP even integer Call OTS$POWGJ with -BASE 
BASE < 0, EXP odd integer Call OTS$POWGJ with -BASE, negate result 
BASE < 0, EXP not integer Error: illegal argument in LOG. 


CALLING SEQUENCE: 
CALL result.wg.v = BASS$POWGG (base.rg.v, exponent.rg.v) 
INPUT PARAMETERS: 


: BASE 


SoOSCoCSCOOCOOCOSOOSOSOSOSOSOSOSOSOSOOSOSOSOSOOOSOOOOOSOSoOO 
SOoOSOSSCSCSOOSOSOSOSOSOSOSOSOSOOSOSOSOSOOSOSOSOOSOOSOSOOoOSoOSo 
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save the registers once 
Test base oe) et cenedie to zero 
If base leq 0, 
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G peeetar 
Q $ 


& 
9 
9 
9 
9 
9 
10 
10 
10 
10 
00000004 10 base = 4 
0000000C + exponent = 12 
10 : IMPLICIT INPUTS: 
10 : NONE 
1 : OUTPUT PARAMETERS: 
i : NONE 
1 : IMPLICIT OUTPUTS: 

000 117: NONE 

00 118 ; 

00 119 ; FUNCTION VALUE: 

38 1§ ; COMPLETION CODES: 

oo ' : gfloat result of exponentiation 
909 > SIDE EFFECTS: 

000 126: Will signal Divide By Zero or Illegal argument in LOG if its 
43 ! : arguments are bad, and OTSS$POWGG and OTSSPOWGJ may also signal. 
$333 1g 

0000° 000 131 BASSPOWGG: : MASK OTSS$POWGG ; Entry point 

00 j ; Since this routine uses no 

00 1 3; registers and usually transfers 

00 1 3: control to OTS$POWGG, we copy 

00 1 ; its register save mask and then 

00 : ; JMP past its save mask and only 

1 : 
1 3 


do case analysis 


a epee 2 eee SaRET RCE 
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BASSPOWGG BASIC gfloat ** gfloat routine iF oi tb 4 9:17 VAX/VMS Macro v04-00 Page 
\ 1 bassPouce BASIC gfloat” ** gfloat SEP=-1984 9: 4:07 (CBASRTL.SRCIBASPOWGG.MAR; 1 ’ 3) 
00000002'°GF 17 8 14 JP G*OTSS$POWGG+2 ; Transfer control to the OTS$ 
; 1 3 routine to do exponentiation 
E 128 3° Come here if the base is less than or equal to zero. We must filter 
S ; Vee ; several special cases, as described above. 
a 5 146 is: BEQL «= 4$ : Branch if base = 0 
50 50 08 00 OC AC 54FD 1 14 EMODG Egpenentsare:, #0, #1, RO. RO 
1D 12 i 128 26 BNEQ ; Branch if exponent is not integer 
1A 150 *¥ The base is less than zero and the exponent is aan integer 
1A 151 ; BASIC defines pais as conser the same way an in eger was 
1A 152 ; in the expression (making a aouble variable os ch happens to 
Bota 137 i contain an integer value equivalent to an integer variable). 
50 OC AC AFD OO1A 155 ° CVTGL exponent(AP), RO 3; Convert exponent to oe 
50 OD OO1F 156 PUSHL RO 3; Save for even/odd t 
50 Dd 0021 157 PUSHL RO 3; Stack as tatede = My to * oTssPowGy 
7E 04 AC 5S2FD 0023 158 MNEGG b se(AP), =-(SP) 3; Stack -base also 
00000000'GF 03 FB 0028 £159 CALLS G*OTS$POWGJ : Call integer” power routines 
04 8E  E9 ik 160 BLBC (3p)$ 2$ ; Branch if exponent even 
50 50 52FD 0032 #4161 MNEGG RO, Rb 3; Exponent odd Regate the result 
04 Ba39 126 2 2s: RET 3 and return with 
0037 164 " Come here if the base is less than zero but the exponent is not 
oO! 193 3 3 an integer. BASIC defines this as an error. 
7E OO°8F 9A 0037 #167 $s: MOVZBL age ELL ARGL OG. -(SP) ; Illegal Argument in LOG 
00000000'GF 01 FB 73 i : CALLS . G*BASS$ST ; Never return. 
004 170 : Come here if the base is equal to zero. The value we return depends 
O8e 4 3; upon the sign of the exponent. 
OC AC 53FD 004 138 is: TSTG exponent (AP) 3; Test the exponent a atnet zero 
OA 19 004 174 BLSS 6$ : Branch if exponent 
os 3 Been Me ss BEQL 5$ : Branch if exponent is *9 
004A 177 " Come here if the base is zero and the exponent is greater than zero. 
004A 178 : _BASIC defines this as 0.0. 
004A 179 s- 
50 7C 004A 180 CLRG RO ; RO, R1 = 0.0 
04 prec i as RET ; Return to caller 
04D 188 ;° : Come here if the base is zero and the exponent is zero. BASIC defines 
04D 184; this as 1.0. 
004D 133 -< 
50 08 SOFD 004D 186 58: MOVG #1, RO ; RO, R1 = 1.0 
04 B33) 183 et RET ; Return to caller. 
05 1 § 3 Come here if the base is zero and the exponent is less than zero. 
b + 3: BASIC defines this as an error. 
7E 00°8F 9A 005 198 is: MOVZBL M#BASSK DIVBY_ZER, -(SP) ; Divide by zero 
00000000'GF 01 FB Bee 132 CALLS #1, G*BASS$STOP ; Report error, never return. 
05D 195 ° END 
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BASSSSTOP eeereere 8 6X 0 
BASSK_DIVBY ZER eeneere 8 
BASSK-ILLARGLOG eeereree = § x 
BASSPOWGG 00000000 RG 1 
BASE = 00000004 
EXPONENT = 0000000C 
OTS$POWGG eeeeeere §=6X 8 00 
OTSSPOWGJ eeverere =X = §=600 

- wore ere aw aa een. cap 

: Psect synopsis ! 

power emer owan on + 
PSECT name Allocation PSECT No. Attributes 
- ABS. 00000000 ie 00 ¢ 0.) NOPIC USR CON ABS ~ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
_BASSCODE 0000005D (¢ 93.) O1¢ 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 

mame a sme oe Seon ae mah 
: Performance indicators H 

Phase Page faults CPU Time Elapsed Time 
Initialization 33 00:00:00.09 00:00:00.61 
Command processing 119 00:00:00.53 00:00:02.84 
Pass 73 00:00:00.54 00:00:01.40 
Symbol table sort 0 00:00:00.00 00:00:00.00 
Pass 2 48 00:00:00.40 00:00:01.07 
Symbol table output 3 bs So 00:00:00.01 
Psect synopsis output 2 00:00:00.0 00:00:00.02 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 280 00:00:01.60 00:00:05.96 


The working set Limit was 900 pages. 

2217 bytes (5 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 8 non-local and 6 local symbols. 
195 source Lines were read in Pass 1, produc ing 8 object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 


Feweeeeoeoeoeeoosoesesoesss= + 
H Macro Library statistics ; 
Macro Library name Macros defined 
-$255$D0UA28: CSYSLIBISTARLET.MLB; 2 0 


0 GETS were required to define 0 macros. 
There were no errors, warnings or information messages. 
MACRO/ENABLE =SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=L1S$:BASPOWGG/0BJ=0BJ$:BASPOWGG MSRC$:BASPOWGG/UPDATE = (ENH$ : BASPOWGG) 
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